00100	C     	MAIN PROGRAM
00200		COMMON FREQ(3,0/50,100),FUNC(100),AMP(100),II(1),IJJ(4000)
00300	10	TYPE 11
00400	11	FORMAT(' 1 TO CHANGE PARAMETERS'/)
00500		ACCEPT 100,X
00600		IF(X.NE.1.0)GO TO 447
00700		TYPE 445
00800	445	FORMAT(' TYPE CAR,MOD,I1,I2'/)
00900		ACCEPT 100,C,XM,ZI1,ZI2
01000	447	TYPE 12
01100	12	FORMAT(' 1 TO CHANGE INDX FUNCTION')
01200		ACCEPT 100,Y
01300		IF(Y.NE.1.0)GO TO 102
01400		TYPE 446
01500	446	FORMAT(' NOW GENERATE INDEX FUNCTION'/)
01600		CALL GEN(FUNC)
01700	100	FORMAT(4F)
01800	102	IF(X.NE.1.0.AND.Y.NE.1.0)GO TO 301
01900		DO 30 I=1,3
02000		DO 30 J=0,50
02100		DO 30 K=1,100
02200	30	FREQ(I,J,K)=99999.0
02300		FREQ(1,50,1)=0.0
02400		DO 300 IS=1,100
02500		CI=ZI1+(ZI2-ZI1)*FUNC(IS)
02550		IF(CI.LT..08)CI=0.0
02600	300	CALL SIDEBANDS(C,XM,CI,IS)
02700	301	CALL DISP(C,XM,ZI1,ZI2)
02800		MAX=FREQ(1,50,1)
02900	C	PRINT101,(((FREQ(K,L,M),K=1,3),L=0,MAX),M=1,50)
03000	101	FORMAT(1H (3F/))
03100		GO TO 10
03200		END